10 REM OPEN 1,8,1,"0:FLOPPY SRQ.OBJ"
12 REM OPEN 2,4
13 SYS 32768; EINSPRUNG FUER NEUEN PROFIASS
14 ;
15 ; **************************
16 ; * FLOPPY SERVICE REQUEST *
17 ; *                        *
18 ; *    VON  UWE GERLACH    *
19 ; *   TEL.  06151/316205   *
20 ; *    BZW.  06622/3908    *
21 ; *                        *
22 ; *        13.06.86        *
23 ; **************************
24 ;
25 ;
26 ; UEBER DATA-LINE DES SERIELLEN BUS
27 ; AN DEN COMPUTER
30 ;
31 ;
100 .TIT "SERVICE REQUEST C64 & VC1541 "
120 .OPT OO
125 ;
130 *=$0500; IM USERPUFFER DER FLOPPY
140 ;
500 START LDA $1C00; PORT B DES DC ABFRAGEN
510 AND #%00010000; LICHTSCHRANKENBIT ISOLIEREN
520 BEQ AUS
530 :
600 EIN LDA $1C00;PORT B DES DC ABFRAGEN
610 ORA #%00001000; LED-BIT SETZEN
620 STA $1C00; LED EINSCHALTEN
650 ;
660 LDA $1800; PORT B DES BC ABFRAGEN
670 AND #%11111101; DATA OUT-BIT LOESCHEN
680 STA $1800; DATA OUT NACH LOW ZIEHEN
690 JMP START
695 ;
700 AUS LDA $1C00;PORT B DES DC ABFRAGEN
710 AND #%11110111; LED-BIT LOESCHEN
720 STA $1C00; LED AUSSCHALTEN
750 ;
760 LDA $1800; PORT B DES BC ABFRAGEN
770 ORA #%00000010; DATA OUT-BIT SETZEN
780 STA $1800; DATA OUT FREIGEBEN
790 JMP START